VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FrmInstalador 
   ClientHeight    =   7125
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   9240
   LinkTopic       =   "Form1"
   ScaleHeight     =   7125
   ScaleWidth      =   9240
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin MSDataGridLib.DataGrid DataGrid1 
      Bindings        =   "FrmInstalador.frx":0000
      Height          =   1215
      Left            =   0
      TabIndex        =   5
      Top             =   6360
      Visible         =   0   'False
      Width           =   9255
      _ExtentX        =   16325
      _ExtentY        =   2143
      _Version        =   393216
      HeadLines       =   1
      RowHeight       =   15
      FormatLocked    =   -1  'True
      AllowAddNew     =   -1  'True
      AllowDelete     =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   8
      BeginProperty Column00 
         DataField       =   "nombreLab"
         Caption         =   "nombreLab"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "nombreServidor"
         Caption         =   "nombreServidor"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "baseDatos"
         Caption         =   "baseDatos"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "Version"
         Caption         =   "Version"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "Skin"
         Caption         =   "Skin"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "Slogan"
         Caption         =   "Slogan"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "DireccionLab"
         Caption         =   "DireccionLab"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "Ruta"
         Caption         =   "Ruta"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   11274
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
         BeginProperty Column02 
         EndProperty
         BeginProperty Column03 
         EndProperty
         BeginProperty Column04 
         EndProperty
         BeginProperty Column05 
         EndProperty
         BeginProperty Column06 
         EndProperty
         BeginProperty Column07 
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Agregar CajeroD"
      Height          =   495
      Left            =   4560
      TabIndex        =   4
      Top             =   960
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Seleccionar"
      Height          =   495
      Left            =   4560
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Borrar >>"
      Height          =   495
      Left            =   4560
      TabIndex        =   2
      Top             =   1920
      Width           =   1215
   End
   Begin VB.ListBox List1 
      Height          =   4110
      Left            =   0
      Style           =   1  'Checkbox
      TabIndex        =   0
      Top             =   1440
      Width           =   4455
   End
   Begin VB.Image Image1 
      Height          =   855
      Left            =   -120
      Top             =   5520
      Width           =   4815
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Tablas"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   1080
      Width           =   4455
   End
End
Attribute VB_Name = "FrmInstalador"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim c
Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            Base.Execute "DELETE FROM [" & List1.List(i) & "] "
        End If
    Next
End Sub

Private Sub Command2_Click()
    For i = 0 To List1.ListCount - 1
        List1.Selected(i) = True
        If i = 34 Or i = 48 Or i = 51 Or i = 53 Or i = 80 Or i = 81 Or i = 75 Or i = 91 Or i = 95 Or i = 71 Or i = 30 Or i = 68 Or i = 41 Or i = 24 Or i = 51 Or i = 36 Or i = 38 Or i = 39 Then
            List1.Selected(i) = False
        End If
        If i >= 57 And i <= 63 Then
            List1.Selected(i) = False
        End If
    Next
End Sub

Private Sub Command3_Click()
    Base.Execute "insert into cajero (denominacion,identifica,seguridad,nivel)values('d','d','d',4)"
    
End Sub

Private Sub Form_Load()
    For i = 0 To Base.TableDefs.Count - 1
        List1.AddItem "" & Base.TableDefs(i).Name
    Next
End Sub

Private Sub Image1_Click()
    c = c + 1
End Sub

Private Sub Image1_DblClick()
    If c = 3 Then
        DataGrid1.Visible = True
    Else
    c = 0
    End If
End Sub

